home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
DISPRT.QRM
< prev
next >
Wrap
Text File
|
1992-06-06
|
2KB
|
61 lines
===========================================================================
BBS: PC Connect
Date: 06-03-92 (13:37) Number: 11798
From: BRENT ASHLEY Refer#: 11702
To: PATRICK WANG Recvd: NO
Subj: PAUSE KEYS Conf: (11) R-QBasic
---------------------------------------------------------------------------
Turning off PrintScreen is pretty simple. There is a flag in the
BIOS data area which is set when the printscreen process is
active. If you set this flag, PrintScreen won't bother because it
thinks it's already happening.
DEF SEG = 0
POKE &H500, 1 ' disable printscreen
POKE &H500, 0 ' enable printScreen
Avoiding the pause is a bit more complicated - a TSR is needed.
This TSR (written with Crescent's PDQ) will reset the pause
function every 1/18.2 seconds. It does this by clearing bit 3 of
0000:0418, which tells the system whether the hold state is active.
It doesn't actually disable the pause feature, but it certainly ensures
it doesn't stay paused for more than an eighteenth of a second.
'
' NoPause - disables CTRL-NumLock and PAUSE action
' by Brent Ashley - uses PDQ link library
'
DEFINT A-Z
'$INCLUDE: 'PDQDECL.BAS'
DIM Registers AS RegType
Registers.IntNum = &H1C ' timer tick interrupt
ID$ = "NoPause v1.0 - Brent Ashley"
PDQPrint ID$, CSRLIN, POS(0), 7
CALL PointIntHere(Registers) ' control goes here on timer tick
GOTO EndIt
CALL IntEntry1
CALL IntEntry2(Registers, 0)
CallOldInt Registers ' let BIOS do its tick stuff
DEF SEG = &H40 ' bios data area
POKE &H18, PEEK(&H18) AND &HF7 ' turn off pause
ReturnFromInt Registers ' return to the underlying app.
EndIt:
EndTSR ID$ ' exit while staying resident
' end of program
-----
Brent
-----
PCRelay:CRS -> #460 RelayNet (tm)
4.11 Canada Remote Systems * Toronto, Ontario